﻿Imports System.ComponentModel
Imports System.Collections.ObjectModel   

Public Class CFondo
    

    Private _id_nombre       As String
    Private _tipo            As Integer     
    Private _esEditableNuevo As Boolean 



Public  Property EsEditableNuevo() As Boolean 
    Get
        Return _esEditableNuevo
    End Get    
    Set(ByVal value As Boolean )
            _esEditableNuevo = value
    End Set

End Property



    Public Property Tipo() As Integer 
        Get
            Return _tipo 
        End Get
        Set(ByVal value As Integer )
            _tipo  = value
        End Set
    End Property



    Public Property idNombre() As String
        Get
            Return _id_nombre
        End Get
        Set(ByVal value As String)
            _id_nombre = value             
        End Set
    End Property




    Sub New()
        _id_nombre = ""
        _tipo = 0    
        _esEditableNuevo = False 
    End Sub

    Sub New(ByVal idNombre As String, ByVal tipo As Integer)
        _id_nombre = idNombre
        _tipo = tipo        
        _esEditableNuevo = False 
    End Sub


    Sub New(ByVal idNombre As String, ByVal tipo As Integer, ByVal esEditableNuevo As Boolean )
        _id_nombre = idNombre
        _tipo = tipo        
        _esEditableNuevo = esEditableNuevo
    End Sub
    

End Class
